unit Map_SYS000;

interface

uses
  SysUtils, Classes, ADODB, DataEngine, Class_SYS000;

type
  TMap_SYS000 = class(TDataEngine)
  public
    function ReadDS(AADODst: TADODataSet): TBaseClass; override;
    function GetStrsIndex(ABaseClass: TBaseClass): string; override;

    function GetStrInsert: string; override;
    function GetStrUpdate: string; override;
    function GetStrDelete: string; override;
    procedure SetParameters(ABaseClass: TBaseClass); override;
  end;

implementation

{ TMap_SYS000 }

function TMap_SYS000.GetStrDelete: string;
begin
  Result := '';
end;

function TMap_SYS000.GetStrInsert: string;
begin
  Result := '';
end;

function TMap_SYS000.GetStrsIndex(ABaseClass: TBaseClass): string;
begin
  with TSYS000(ABaseClass) do
  begin
    Result := '' + IntToStr(ID);
  end;
end;

function TMap_SYS000.GetStrUpdate: string;
begin
  Result := '';
end;

function TMap_SYS000.ReadDS(AADODst: TADODataSet): TBaseClass;
begin
  Result := TSYS000.Create;
  with TSYS000(Result) do
  begin
    FAINITTERM := AADODst.FieldByName('FAINITTERM').AsString;
    FAMOUNTDEC := AADODst.FieldByName('FAMOUNTDEC').AsInteger;
    FICCLASSLEN := AADODst.FieldByName('FICCLASSLEN').AsString;
    FICCLOSE := AADODst.FieldByName('FICCLOSE').AsInteger;
    FICCURTERM := AADODst.FieldByName('FICCURTERM').AsInteger;
    FICCURYEAR := AADODst.FieldByName('FICCURYEAR').AsInteger;
    FPRICEDEC := AADODst.FieldByName('FPRICEDEC').AsInteger;
    ID := AADODst.FieldByName('ID').AsInteger;
    JMONTH := AADODst.FieldByName('JMONTH').AsFloat;
    JRULE := AADODst.FieldByName('JRULE').AsFloat;
    JYEAR := AADODst.FieldByName('JYEAR').AsFloat;
    LOCKEDBY := AADODst.FieldByName('LOCKEDBY').AsString;
    SUBSKH := AADODst.FieldByName('SUBSKH').AsString;
    NAME := AADODst.FieldByName('NAME').AsString;
    MASTER := AADODst.FieldByName('MASTER').AsString;
    USEYEAR := AADODst.FieldByName('USE_YEAR').AsInteger;
    USEMONTH := AADODst.FieldByName('USE_MONTH').AsInteger;
    QYXZ := AADODst.FieldByName('QYXZ').AsString;
    DMCD0 := AADODst.FieldByName('DMCD0').AsString;
    DMCD1 := AADODst.FieldByName('DMCD1').AsString;
    DMCD2 := AADODst.FieldByName('DMCD2').AsString;
    DMCD3 := AADODst.FieldByName('DMCD3').AsString;
    DMCD4 := AADODst.FieldByName('DMCD4').AsString;
    DMCD5 := AADODst.FieldByName('DMCD5').AsString;
    DMCD6 := AADODst.FieldByName('DMCD6').AsString;
    BWB := AADODst.FieldByName('BWB').AsString;
    NIAN := AADODst.FieldByName('NIAN').AsInteger;
    YUE := AADODst.FieldByName('YUE').AsInteger;
    CSHCLOSE := AADODst.FieldByName('CSH_CLOSE').AsString;
    FARMETHOD := AADODst.FieldByName('FARMETHOD').AsString;
    FARHZBL := AADODst.FieldByName('FARHZBL').AsFloat;
    FARCLOSE := AADODst.FieldByName('FARCLOSE').AsInteger;
    FFACLASSLEN := AADODst.FieldByName('FFACLASSLEN').AsString;
    FFAADJUST := AADODst.FieldByName('FFAADJUST').AsInteger;
    FFACURYEAR := AADODst.FieldByName('FFACURYEAR').AsString;
    FFACURTERM := AADODst.FieldByName('FFACURTERM').AsString;
    MEMO := TStringStream.Create(AADODst.FieldByName('MEMO').AsString);
    JZDATE := AADODst.FieldByName('JZDATE').AsInteger;
    DELEGATE := AADODst.FieldByName('DELEGATE').AsString;
    DATAVER := AADODst.FieldByName('DATAVER').AsString;
    SPLITYEAR := AADODst.FieldByName('SPLITYEAR').AsString;
    LASTBAKDATE := AADODst.FieldByName('LASTBAKDATE').AsString;
    BAKDAY := AADODst.FieldByName('BAKDAY').AsInteger;
    CNCURYEAR := AADODst.FieldByName('CNCURYEAR').AsInteger;
    CNCURMONTH := AADODst.FieldByName('CNCURMONTH').AsInteger;
    CNNIAN := AADODst.FieldByName('CNNIAN').AsInteger;
    CNYUE := AADODst.FieldByName('CNYUE').AsInteger;
  end;
end;

procedure TMap_SYS000.SetParameters(ABaseClass: TBaseClass);
begin
  inherited;

end;

end.
